$inputfile = $ARGV[0];
chomp($inputfile);
open(BUFF,$inputfile) or die " no file found $inputfile\n";

$post_fwd_strandfile = $ARGV[1];
chomp($post_fwd_strandfile);
open(POST,$post_fwd_strandfile) or die " no file found $post_fwd_strandfile\n";

$file_generate_droppedsnp =  $ARGV[2];
chomp($file_generate_droppedsnp);
open(WRBUFF,">$file_generate_droppedsnp") or die " not able to write $file_generate_droppedsnp\n";

while(<POST>)
{
	chomp($_);
	@a = split(" ",$_);
	$hash{$a[1]} = 1
}
close(POST);
while(<BUFF>)
{
	chomp($_);
	@a = split(" ",$_);
	if(!(exists($hash{$a[1]})))
	{
		print WRBUFF $_."\n";
	}
}
close(BUFF);
